unit unfrmCadSistemas;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, unfrmCadMaster, DB, ActnList, DBCtrls, StdCtrls, Buttons,
  Wwkeycb, Mask, wwdbedit, Wwdotdot, Wwdbcomb, ExtCtrls, Grids, Wwdbigrd,
  Wwdbgrid, wwSpeedButton, wwDBNavigator, wwclearpanel, ComCtrls,
  fcStatusBar, wwcheckbox;

type
  TfrmCadSistemas = class(TfrmCadMaster)
    Label4: TLabel;
    DBEdit2: TDBEdit;
    wwDBComboBox2: TwwDBComboBox;
    Label5: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCadSistemas: TfrmCadSistemas;

implementation

uses undmMain;

{$R *.dfm}

procedure TfrmCadSistemas.FormCreate(Sender: TObject);
var
  x: Integer;
begin
  inherited;
  with wwDBComboBox2 do
  begin
    Items.Clear;
    for x:= low(dmMain.Sistemas) to high(dmMain.Sistemas) do
    Items.Add(dmMain.Sistemas[x].Sistema+#9+IntToStr(dmMain.Sistemas[x].ID_SISTEMA));
  end;
end;

end.
